DEFINITION MODULE ModelFS; (* Sem 08-Feb-87. (c) KRONOS *)

FROM SYSTEM    IMPORT   ADDRESS;

PROCEDURE Open(Name: ARRAY OF CHAR);

PROCEDURE Create(Name: ARRAY OF CHAR);

PROCEDURE sRead(a: ADDRESS; s: CARDINAL);

PROCEDURE sWrite(a: ADDRESS; s: CARDINAL);

PROCEDURE Seek(n: CARDINAL);

PROCEDURE Poz(): CARDINAL;

PROCEDURE Close();

VAR WordCnt: CARDINAL;

END ModelFS.
